home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 80 / 64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64 / new publish (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  561b  |  18 lines
  1. 1 printchr$(14):poke53280,6:poke53281,6
  2. 2 print"[147]"tab(13)"[206]ew [208]ublish"tab(52)"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
  3. 3 printtab(17)"von"tab(48)"[200]ans-[202]uergen [218]iethmann"
  4. 4 printtab(160)"bitte legen [211]ie die [199][197][207][211] 2.0"
  5. 5 print"[208]ublishdiskette in das [204]aufwerk"
  6. 6 print"und druecken eine [212]aste"
  7. 7 wait203,64,64:open1,8,15,"i":open2,8,2,"#":restore
  8. 8 read n:ifn<0then10
  9. 9 print#1,"m-w"chr$(lb)chr$(05)chr$(1)chr$(n):lb=lb+1:goto8
  10. 10 on abs(n) goto11,12,15
  11. 11 read lb:goto8
  12. 12 if si=1 then print#1,"u2";2;0;t;s
  13. 13 read t:read s
  14. 14 print#1,"u1"2;0;t;s:si=1:goto8
  15. 15 print#1,"u2"2;0;t;s
  16. 16 close1:close2:print"[201]nstallation von [199][197][207]-[208]ublish aufgehoben":end
  17. 17 data-2,15,1,-1,152,101,101,-2,18,0,-1,190,0,0,-3
  18.